home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / amircping / ping.amirx < prev   
Encoding:
Text File  |  1982-06-12  |  2.1 KB  |  75 lines
  1. /* Ping script for use with AmIRC 1.x */ Version='1.02' /*
  2. // Written by Deryk Robosson 3.1.96
  3. //
  4. // newlook@ameritech.net newlook on #amiga IRC (EfNet)
  5. //
  6. // 2.2.97 Added flood support to script
  7. //        as well as just passing it a user nick.
  8. // 4.3.97 Prettied up the display of information
  9. */
  10. /* set your ping count here */
  11. count=5
  12.  
  13. bold=d2c(2)
  14. underline=x2c('1F')
  15. esc=d2c(27)
  16.  
  17. options results
  18. parse arg param
  19.  
  20. param=trim(upper(param))
  21. if param="" then do
  22.     Call Version()
  23.     Exit
  24. end
  25. if param='VER' then do
  26.     Call Version()
  27.     Exit
  28. end
  29. if param='HELP' then do
  30.     Call Help()
  31.     Exit
  32. end
  33.  
  34. if param~="" then do
  35.     parse var param site" "command
  36.     if site~="" then site=trim(upper(site))
  37.     else site=""
  38.     if command~="" then command=trim(upper(command))
  39.     else command=""
  40. end
  41.  
  42. 'USERHOST 'site
  43. if result~="RESULT" then parse var result user"@"site
  44.  
  45. /* prepare for the main file */
  46. con="con:0/0/600/100/PingOutput/CLOSE/SIMPLEREFRESH"
  47.  
  48. /* switch on our parameters */
  49. select
  50.     when command="" then ping='amitcp:bin/ping -c'||count||' '||site||' >'||con
  51.     when command="FLOOD" then ping='amitcp:bin/ping -f '||site||' >'||con
  52.     otherwise nop
  53. end
  54.  
  55. ADDRESS COMMAND ping
  56. EXIT
  57.  
  58. Version:
  59. "ECHO P="ESC||BOLD"«Ping» "BOLD"Ping.AMIRX"BOLD" Version "BOLD||VERSION||BOLD
  60. "ECHO P="ESC||BOLD"«Ping» Read the top of Ping.AMIRX script for history."
  61. "ECHO P="ESC||BOLD"«Ping» "BOLD"©1996,97"BOLD" Deryk Robosson "BOLD"(newlook)"BOLD" - [newlook@ameritech.net]"
  62. "ECHO P="ESC||BOLD"«Ping» Type /<alias> help for command information"
  63. return
  64.  
  65. Help:
  66. "ECHO P="ESC||BOLD"«Ping» "BOLD"Ping.AMIRX"BOLD" Help"
  67. "ECHO P="ESC||BOLD"«Ping» "BOLD"VER - "BOLD"displays script version"
  68. "ECHO P="ESC||BOLD"«Ping» "BOLD"FLOOD - "BOLD"selects ping flood"
  69. "ECHO P="ESC||BOLD"«Ping» "BOLD"HELP - "BOLD"displays this file"
  70. "ECHO P="ESC||BOLD"«Ping» "BOLD||UNDERLINE"EXAMPLES:"BOLD||UNDERLINE
  71. "ECHO P="ESC||BOLD"«Ping» "BOLD"/Pi site.com "BOLD" will ping a site"
  72. "ECHO P="ESC||BOLD"«Ping» "BOLD"/Pi usernick "BOLD" will ping the users site"
  73. "ECHO P="ESC||BOLD"«Ping» "BOLD"/Pi site.com "BOLD" will flood the site"
  74. return
  75.